% V20210224 - 7.3 GW_USE_THEME_CUSTO

% Load the library
INCLUDE "GW.bas"

% Create a page.
p = GW_NEW_PAGE()

% Prepare titl<e bar string.
Title$ = GW_ADD_BAR_TITLE$("GW_USE_THEME_CUSTO Example")

% Add title to page.
GW_ADD_TITLEBAR(p,Title$)

% Add descriptive text.
GW_ADD_TEXTBOX(p, "Starting using a customization...")

% Create a permanent customization.
myCusto$ = "color=b mini"     % Collect parameters into a string.
myCusto  = GW_NEW_THEME_CUSTO(myCusto$)

GW_USE_THEME_CUSTO(myCusto)   % Activate it for all newly added controls.

bt1=GW_ADD_BUTTON(p, "Button 1", "") % This control is customized with myCusto$.
bt2=GW_ADD_BUTTON(p, "Button 2", "") % This control is also customized with myCusto$.

% Add descriptive text.
GW_ADD_TEXTBOX(p, "Now we stop the customization:")

% Stop the permanent customization.
GW_RESET_THEME_CUSTO()

bt3=GW_ADD_BUTTON(p, "Button 3", "") % This control is NOT customized.

% Render the page.
GW_RENDER(p)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process user actions.

 % Example feedback.
 POPUP r$

% End when BACK key is pressed.
UNTIL r$ = "BACK"

END "End of GW_USE_THEME_CUSTO Example"